home *** CD-ROM | disk | FTP | other *** search
- object FormHTMLBody: TFormHTMLBody
- Left = 51
- Top = 65
- BorderIcons = []
- BorderStyle = bsDialog
- Caption = 'Body'
- ClientHeight = 302
- ClientWidth = 525
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnCreate = FormCreate
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object EditHTMLTag: TEdit
- Left = 4
- Top = 0
- Width = 83
- Height = 21
- Hint = 'HTML tag to be used if '#39'OK'#39' is pressed'
- TabStop = False
- AutoSize = False
- ParentColor = True
- ParentShowHint = False
- ReadOnly = True
- ShowHint = True
- TabOrder = 0
- Text = 'EditHTMLTag'
- OnChange = EditHTMLTagChange
- end
- object GroupBoxBACKGROUND: TGroupBox
- Left = 8
- Top = 28
- Width = 295
- Height = 97
- Caption = 'BACKGROUND'
- Ctl3D = True
- ParentCtl3D = False
- TabOrder = 1
- object EditBACKGROUND: TEdit
- Left = 6
- Top = 16
- Width = 283
- Height = 21
- MaxLength = 250
- TabOrder = 0
- OnChange = EditBACKGROUNDChange
- OnExit = EditBACKGROUNDExit
- OnKeyPress = EditBACKGROUNDKeyPress
- end
- object PanelBACKGROUND: TPanel
- Left = 2
- Top = 73
- Width = 291
- Height = 22
- Hint = 'BACKGROUND attribute'
- Align = alBottom
- Alignment = taLeftJustify
- BevelOuter = bvNone
- BorderStyle = bsSingle
- Caption = 'PanelBACKGROUND'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- OnClick = PanelBACKGROUNDClick
- end
- object ButtonBrowse: TButton
- Left = 6
- Top = 43
- Width = 65
- Height = 25
- Caption = 'Browse'
- TabOrder = 1
- OnClick = ButtonBrowseClick
- end
- object ButtonHistory: TButton
- Left = 76
- Top = 43
- Width = 65
- Height = 25
- Caption = 'History'
- TabOrder = 2
- OnClick = ButtonHistoryClick
- end
- end
- object GroupBoxBGCOLOR: TGroupBox
- Left = 344
- Top = 28
- Width = 173
- Height = 37
- Caption = 'BGCOLOR'
- ParentShowHint = False
- ShowHint = False
- TabOrder = 2
- object ButtonBGCOLOR: TButton
- Left = 144
- Top = 12
- Width = 21
- Height = 21
- Caption = '>>'
- TabOrder = 0
- OnClick = ButtonBGCOLORClick
- end
- object PanelBGCOLOR: TPanel
- Left = 2
- Top = 15
- Width = 139
- Height = 20
- Hint = 'BGCOLOR attribute'
- Align = alLeft
- Alignment = taLeftJustify
- BevelOuter = bvNone
- BorderStyle = bsSingle
- Caption = 'PanelBGCOLOR'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = PanelBGCOLORClick
- end
- end
- object GroupBoxTEXT: TGroupBox
- Left = 344
- Top = 72
- Width = 173
- Height = 37
- Caption = 'TEXT'
- ParentShowHint = False
- ShowHint = False
- TabOrder = 3
- object ButtonTEXT: TButton
- Left = 144
- Top = 12
- Width = 21
- Height = 21
- Caption = '>>'
- TabOrder = 0
- OnClick = ButtonTEXTClick
- end
- object PanelTEXT: TPanel
- Left = 2
- Top = 15
- Width = 139
- Height = 20
- Hint = 'TEXT attribute'
- Align = alLeft
- Alignment = taLeftJustify
- BevelOuter = bvNone
- BorderStyle = bsSingle
- Caption = 'PanelTEXT'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = PanelTEXTClick
- end
- end
- object GroupBoxLINK: TGroupBox
- Left = 344
- Top = 116
- Width = 173
- Height = 37
- Caption = 'LINK'
- ParentShowHint = False
- ShowHint = False
- TabOrder = 4
- object ButtonLINK: TButton
- Left = 144
- Top = 12
- Width = 21
- Height = 21
- Caption = '>>'
- TabOrder = 0
- OnClick = ButtonLINKClick
- end
- object PanelLINK: TPanel
- Left = 2
- Top = 15
- Width = 139
- Height = 20
- Hint = 'LINK attribute'
- Align = alLeft
- Alignment = taLeftJustify
- BevelOuter = bvNone
- BorderStyle = bsSingle
- Caption = 'PanelLINK'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = PanelLINKClick
- end
- end
- object GroupBoxVLINK: TGroupBox
- Left = 344
- Top = 160
- Width = 173
- Height = 37
- Caption = 'VLINK'
- ParentShowHint = False
- ShowHint = False
- TabOrder = 5
- object ButtonVLINK: TButton
- Left = 144
- Top = 12
- Width = 21
- Height = 21
- Caption = '>>'
- TabOrder = 0
- OnClick = ButtonVLINKClick
- end
- object PanelVLINK: TPanel
- Left = 2
- Top = 15
- Width = 139
- Height = 20
- Hint = 'VLINK attribute'
- Align = alLeft
- Alignment = taLeftJustify
- BevelOuter = bvNone
- BorderStyle = bsSingle
- Caption = 'PanelVLINK'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = PanelVLINKClick
- end
- end
- object GroupBoxALINK: TGroupBox
- Left = 344
- Top = 204
- Width = 173
- Height = 37
- Caption = 'ALINK'
- ParentShowHint = False
- ShowHint = False
- TabOrder = 6
- object ButtonALINK: TButton
- Left = 144
- Top = 12
- Width = 21
- Height = 21
- Caption = '>>'
- TabOrder = 0
- OnClick = ButtonALINKClick
- end
- object PanelALINK: TPanel
- Left = 2
- Top = 15
- Width = 139
- Height = 20
- Hint = 'ALINK attribute'
- Align = alLeft
- Alignment = taLeftJustify
- BevelOuter = bvNone
- BorderStyle = bsSingle
- Caption = 'PanelALINK'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = PanelALINKClick
- end
- end
- object GroupBoxBGPROPERTIES: TGroupBox
- Left = 196
- Top = 132
- Width = 139
- Height = 81
- Caption = 'BGPROPERTIES'
- TabOrder = 7
- object PanelBGPROPERTIES: TPanel
- Left = 2
- Top = 59
- Width = 135
- Height = 20
- Hint = 'BGPROPERTIES attribute'
- Align = alBottom
- Alignment = taLeftJustify
- BevelOuter = bvNone
- BorderStyle = bsSingle
- Caption = 'PanelBGPROPERTIES'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnClick = PanelBGPROPERTIESClick
- end
- object ListBoxBGPROPERTIES: TListBox
- Left = 35
- Top = 16
- Width = 71
- Height = 33
- ItemHeight = 13
- Items.Strings = (
- '0'
- 'FIXED')
- TabOrder = 1
- OnClick = ListBoxBGPROPERTIESClick
- end
- end
- object GroupBoxLEFTMARGIN: TGroupBox
- Left = 8
- Top = 132
- Width = 177
- Height = 37
- Caption = 'LEFTMARGIN'
- TabOrder = 8
- object PanelLEFTMARGIN: TPanel
- Left = 2
- Top = 15
- Width = 111
- Height = 20
- Hint = 'LEFTMARGIN attribute'
- Align = alLeft
- Alignment = taLeftJustify
- BevelOuter = bvNone
- BorderStyle = bsSingle
- Caption = 'PanelLEFTMARGIN'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnClick = PanelLEFTMARGINClick
- end
- object SpinEditLEFTMARGIN: TSpinEdit
- Left = 116
- Top = 12
- Width = 56
- Height = 22
- AutoSelect = False
- AutoSize = False
- MaxLength = 5
- MaxValue = 2000
- MinValue = 0
- TabOrder = 1
- Value = 0
- OnChange = SpinEditLEFTMARGINChange
- end
- end
- object GroupBoxTOPMARGIN: TGroupBox
- Left = 8
- Top = 176
- Width = 177
- Height = 37
- Caption = 'TOPMARGIN'
- TabOrder = 9
- object PanelTOPMARGIN: TPanel
- Left = 2
- Top = 15
- Width = 111
- Height = 20
- Hint = 'TOPMARGIN attribute'
- Align = alLeft
- Alignment = taLeftJustify
- BevelOuter = bvNone
- BorderStyle = bsSingle
- Caption = 'PanelTOPMARGIN'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnClick = PanelTOPMARGINClick
- end
- object SpinEditTOPMARGIN: TSpinEdit
- Left = 116
- Top = 12
- Width = 56
- Height = 22
- AutoSelect = False
- AutoSize = False
- MaxLength = 5
- MaxValue = 2000
- MinValue = 0
- TabOrder = 1
- Value = 0
- OnChange = SpinEditTOPMARGINChange
- end
- end
- object PanelBottom: TPanel
- Left = 0
- Top = 249
- Width = 525
- Height = 53
- Align = alBottom
- BevelOuter = bvNone
- Caption = 'PanelBottom'
- Font.Color = clBtnFace
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 10
- object Bevel: TBevel
- Left = 0
- Top = 0
- Width = 525
- Height = 6
- Align = alTop
- Shape = bsTopLine
- end
- object ButtonInsert: TButton
- Left = 4
- Top = 8
- Width = 77
- Height = 25
- Hint = 'Use the HTML tag'
- Caption = '&OK'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnClick = ButtonInsertClick
- end
- object ButtonCancel: TButton
- Left = 88
- Top = 8
- Width = 77
- Height = 25
- Cancel = True
- Caption = '&Cancel'
- ParentShowHint = False
- ShowHint = False
- TabOrder = 1
- OnClick = ButtonCancelClick
- end
- object ButtonHelp: TButton
- Left = 256
- Top = 8
- Width = 77
- Height = 25
- Caption = '&Help'
- ParentShowHint = False
- ShowHint = False
- TabOrder = 3
- OnClick = ButtonHelpClick
- end
- object ButtonClearAll: TButton
- Left = 172
- Top = 8
- Width = 77
- Height = 25
- Hint = 'Clear and reset all attributes to defaults'
- Caption = 'Clear &All'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = ButtonClearAllClick
- end
- object PanelSaveReuseLevel: TPanel
- Left = 4
- Top = 40
- Width = 329
- Height = 9
- BevelOuter = bvLowered
- Caption = ' '
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- OnDblClick = PanelSaveReuseLevelDblClick
- OnMouseMove = PanelSaveReuseLevelMouseMove
- end
- end
- end
-